home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 2 / MacMania 2.toast / Demo's / Tools&Utilities / HyperCard / CambridgeMedlineTutor / ccMedTut2 / card_27901.txt < prev    next >
Encoding:
Text File  |  1992-02-24  |  2.9 KB  |  125 lines
  1. -- card: 27901 from stack: in
  2. -- bmap block id: 28376
  3. -- flags: 0000
  4. -- background id: 11419
  5. -- name: 
  6. ----- HyperTalk script -----
  7. --Hidden field - card field id 3
  8.  
  9. --Handlers below are not very elegant, but they work - should be able to put the EnterInField script as part of On ArrowKey handler, under option that goes to next card, but I can't get this to work - does work this way, mapping arrow action to another handler - Chose Enter InField just because it's a handler that won't ever be used for any thing else [in fact, can't be used for most part, because stack is pro tected & user can't get cursor in field]
  10.  
  11. On ArrowKey which
  12.   if which is "up" then EnterInField
  13.   else if which is "right" then beep
  14.   else if which is "left" then beep
  15.   else if which is "down" then beep
  16. End ArrowKey
  17.  
  18. On EnterInField
  19.   undissolve
  20. End EnterInField
  21.  
  22.  
  23. -- part 8 (field)
  24. -- low flags: 00
  25. -- high flags: 0000
  26. -- rect: left=142 top=133 right=150 bottom=259
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 0 / 0
  29. -- text alignment: 0
  30. -- font id: 3
  31. -- text size: 12
  32. -- style flags: 256
  33. -- line height: 16
  34. -- part name: 
  35.  
  36.  
  37. -- part 9 (field)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=142 top=149 right=166 bottom=259
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 0
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 2048
  47. -- line height: 16
  48. -- part name: 
  49.  
  50.  
  51. -- part 10 (field)
  52. -- low flags: 00
  53. -- high flags: 0000
  54. -- rect: left=142 top=165 right=236 bottom=311
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 0
  58. -- font id: 3
  59. -- text size: 12
  60. -- style flags: 256
  61. -- line height: 16
  62. -- part name: 
  63.  
  64.  
  65. -- part 12 (field)
  66. -- low flags: 00
  67. -- high flags: 2004
  68. -- rect: left=55 top=264 right=312 bottom=421
  69. -- title width / last selected line: 0
  70. -- icon id / first selected line: 0 / 0
  71. -- text alignment: 0
  72. -- font id: 3
  73. -- text size: 12
  74. -- style flags: 0
  75. -- line height: 18
  76. -- part name: red
  77.  
  78.  
  79. -- part contents for card part 3
  80. ----- text -----
  81. ... and now hit the up arrow key to move the highlight back to Menus...
  82.  
  83. -- part contents for card part 8
  84. ----- text -----
  85. Menus
  86.  
  87. -- part contents for card part 9
  88. ----- text -----
  89. Commands
  90.  
  91. -- part contents for card part 10
  92. ----- text -----
  93. Change configuration
  94. Dos commands
  95. change compact Disc
  96. eXit
  97.  
  98. -- part contents for background part 2
  99. ----- text -----
  100. 88
  101.  
  102. -- part contents for background part 3
  103. ----- text -----
  104. Main Menu
  105.  
  106. -- part contents for background part 5
  107. ----- text -----
  108. card id 42013
  109.  
  110. -- part contents for background part 8
  111. ----- text -----
  112. 42013
  113.  
  114. -- part contents for background part 11
  115. ----- text -----
  116.  
  117.  
  118.  
  119. -- part contents for card part 11
  120. ----- text -----
  121. Move the highlight down to "change compact Disc," with the down arrow ...
  122.  
  123. -- part contents for card part 12
  124. ----- text -----
  125.   ..And now the new disk is ready to search - Just move the highlight up to "Menus," by hitting the up arrow ...